home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8182 < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.2 KB  |  129 lines
  1. level2 startnoload
  2. /copyfontdict
  3. {
  4. findfont dup length dict
  5. begin
  6. {
  7. 1 index/FID ne{def}{pop pop}ifelse
  8. }forall
  9. }bd
  10. /$ckeyd md def
  11. /:skey
  12. {
  13. 1 index maxlength 2 index
  14. length sub
  15. ge
  16. {
  17. begin
  18. /$mkeys 20 dict def
  19. /$mkeys load
  20. end
  21. dup/$ckeyd xs
  22. }if
  23. 3 1 roll put
  24. }bd
  25. /fD1pass
  26. {
  27. 40
  28. $ckeyd
  29. //md
  30. ne
  31. {
  32. pop 1
  33. }if
  34. $ckeyd exch
  35. :skey
  36. }bd
  37. /:searchdict Z
  38. /:searchdict
  39. {
  40. exch 2 copy
  41. known
  42. {
  43. get
  44. }{
  45. exch/$mkeys
  46. get
  47. :searchdict
  48. }ifelse
  49. }bd
  50. /lU
  51. {
  52. //md exch 2 copy
  53. known
  54. {
  55. get
  56. }{
  57. exch
  58. /$mkeys get
  59. :searchdict
  60. }ifelse
  61. }bd
  62. level2 endnoload level2 not startnoload
  63. /copyfontdict
  64. {
  65. findfont dup length dict
  66. copy
  67. begin
  68. }bd
  69. /fD1pass/def ld
  70. /lU/load ld
  71. level2 not endnoload
  72. /fD Z
  73. /sf Z
  74. /scf Z
  75. /sf1pass
  76. {
  77. lU setfont
  78. }bd
  79. /scf1pass
  80. {
  81. exch lU exch scalefont fD
  82. }bd
  83. /scf2pass
  84. {
  85. scalefont fD
  86. }bd
  87. md/fontname known not{
  88. /fontname/customfont def
  89. }if
  90. /Encoding Z
  91. /:mre
  92. {
  93. copyfontdict
  94. /Encoding MacEncoding def
  95. fontname currentdict
  96. end
  97. definefont :ff fD
  98. }bd
  99. /:bsr
  100. {
  101. copyfontdict
  102. /Encoding Encoding 256 array copy def
  103. Encoding dup
  104. }bd
  105. /pd{put dup}bd
  106. /:esr
  107. {
  108. pop pop
  109. fontname currentdict
  110. end
  111. definefont :ff fD
  112. }bd
  113. /ps Z
  114. /fz{/ps xs}bd
  115. /cF/currentfont ld
  116. /mbf
  117. {
  118. /makeblendedfont where
  119. {
  120. pop
  121. makeblendedfont
  122. /ABlend exch definefont
  123. }{
  124. pop
  125. }ifelse
  126. fD
  127. }def
  128. %%EndFile
  129.